﻿Public Class frmEditAtencion


    Private Sub frmEditAtencion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'frmSearchLlamadas.Hide()

        'Cargo los combos desde la base
        CargarOptSalu(cbo_salu)
        CargarOptEmpa(cbo_empatia)
        CargarOptInd(cbo_indagacion)
        CargarOptDisp(cbo_disposicion)
        CargarOptComp(cbo_compromiso)
        CargarOptInfo(cbo_info)
        CargarOptComunicacion(cbo_comunicacion)
        CargarOptCredibilidad(cbo_credibilidad)
        CargarOptClose(cbo_cierre)

        'Cargo las variables globales con los valores correspondientes:
        Psaludo = txtv01.Text
        Pempatia = txtv02.Text
        Pindagacion = txtv03.Text
        Pdisposicion = txtv04.Text
        Pcompromiso = txtv05.Text
        Pinformacion = txtv06.Text
        Pcomunicacion = txtv07.Text
        Pcredibilidad = txtv08.Text
        Pcierre = txtv09.Text
        puntajeTotal = lbl_puntaje.Text

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Limpiar(Gb_01)
        Limpiar(Gb_02)
        Limpiar(Gb_03)
        Limpiar(gbValores)
        puntajeTotal = 0
        Psaludo = 0
        Pempatia = 0
        Pindagacion = 0
        Pdisposicion = 0
        Pcompromiso = 0
        Pinformacion = 0
        Pcomunicacion = 0
        Pcredibilidad = 0
        Pcierre = 0
        'frmSearchLlamadas.Show()
        Me.Close()
    End Sub

    Private Sub cbo_salu_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_salu.SelectedIndexChanged
        Dim valorSal As New C_todos
        Psaludo = valorSal.valorSalu(cbo_salu)
        txtv01.Text = Psaludo
        puntajeTotal = 0
        puntajeTotal = Psaludo + Pempatia + Pindagacion + Pdisposicion + Pcompromiso + Pinformacion + Pcomunicacion + Pcredibilidad + Pcierre
        lbl_puntaje.Text = puntajeTotal
    End Sub

    Private Sub cbo_empatia_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_empatia.SelectedIndexChanged
        Dim valorEmp As New C_todos
        Pempatia = valorEmp.valorEmpatia(cbo_empatia)
        txtv02.Text = Pempatia
        puntajeTotal = 0
        puntajeTotal = Psaludo + Pempatia + Pindagacion + Pdisposicion + Pcompromiso + Pinformacion + Pcomunicacion + Pcredibilidad + Pcierre
        lbl_puntaje.Text = puntajeTotal
    End Sub

    Private Sub cbo_indagacion_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_indagacion.SelectedIndexChanged
        Dim valorInd As New C_todos
        Pindagacion = valorInd.valorIndagacion(cbo_indagacion)
        txtv03.Text = Pindagacion
        puntajeTotal = 0
        puntajeTotal = Psaludo + Pempatia + Pindagacion + Pdisposicion + Pcompromiso + Pinformacion + Pcomunicacion + Pcredibilidad + Pcierre
        lbl_puntaje.Text = puntajeTotal
    End Sub

    Private Sub cbo_disposicion_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_disposicion.SelectedIndexChanged
        Dim valorDisp As New C_todos
        Pdisposicion = valorDisp.valordisposicion(cbo_disposicion)
        txtv04.Text = Pdisposicion
        puntajeTotal = 0
        puntajeTotal = Psaludo + Pempatia + Pindagacion + Pdisposicion + Pcompromiso + Pinformacion + Pcomunicacion + Pcredibilidad + Pcierre
        lbl_puntaje.Text = puntajeTotal
    End Sub

    Private Sub cbo_compromiso_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_compromiso.SelectedIndexChanged
        Dim valorComp As New C_todos
        Pcompromiso = valorComp.valorCompromiso(cbo_compromiso)
        txtv05.Text = Pcompromiso
        puntajeTotal = 0
        puntajeTotal = Psaludo + Pempatia + Pindagacion + Pdisposicion + Pcompromiso + Pinformacion + Pcomunicacion + Pcredibilidad + Pcierre
        lbl_puntaje.Text = puntajeTotal
    End Sub

    Private Sub cbo_info_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_info.SelectedIndexChanged
        Dim valorinf As New C_todos
        Pinformacion = valorinf.valorinformacion(cbo_info)
        txtv06.Text = Pinformacion
        puntajeTotal = 0
        puntajeTotal = Psaludo + Pempatia + Pindagacion + Pdisposicion + Pcompromiso + Pinformacion + Pcomunicacion + Pcredibilidad + Pcierre
        lbl_puntaje.Text = puntajeTotal
    End Sub

    Private Sub cbo_comunicacion_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_comunicacion.SelectedIndexChanged
        Dim valorComunic As New C_todos
        Pcomunicacion = valorComunic.valorComunicacion(cbo_comunicacion)
        txtv07.Text = Pcomunicacion
        puntajeTotal = 0
        puntajeTotal = Psaludo + Pempatia + Pindagacion + Pdisposicion + Pcompromiso + Pinformacion + Pcomunicacion + Pcredibilidad + Pcierre
        lbl_puntaje.Text = puntajeTotal
    End Sub

    Private Sub cbo_credibilidad_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_credibilidad.SelectedIndexChanged
        Dim valorCredi As New C_todos
        Pcredibilidad = valorCredi.valorCredibilidad(cbo_credibilidad)
        txtv08.Text = Pcredibilidad
        puntajeTotal = 0
        puntajeTotal = Psaludo + Pempatia + Pindagacion + Pdisposicion + Pcompromiso + Pinformacion + Pcomunicacion + Pcredibilidad + Pcierre
        lbl_puntaje.Text = puntajeTotal
    End Sub

    Private Sub cbo_cierre_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_cierre.SelectedIndexChanged
        Dim valorClouse As New C_todos
        Pcierre = valorClouse.valorClose(cbo_cierre)
        txtv09.Text = Pcierre
        puntajeTotal = 0
        puntajeTotal = Psaludo + Pempatia + Pindagacion + Pdisposicion + Pcompromiso + Pinformacion + Pcomunicacion + Pcredibilidad + Pcierre
        lbl_puntaje.Text = puntajeTotal
    End Sub

    Private Sub bt_guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_guardar.Click
        Dim ActualizarLLamadaAT As New edit_callsAT
        ActualizarLLamadaAT.updateCallAtencion()
        frmSearchLlamadas.Close()
        'frmIndex.Show()
        Me.Close()
    End Sub
End Class